From: YAMAMOTO Mitsuharu Date: Mon, 27 Aug 2007 08:30:13 +0000 (+0000) Subject: (mac-handle-toolbar-switch-mode): Add explicit X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~16880 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ac8d025328e073b201a437b978f252e479549110;p=emacs.git (mac-handle-toolbar-switch-mode): Add explicit argument to tool-bar-mode call. --- diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index b9f28323694..e39e1fffeb0 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -1798,12 +1798,12 @@ Currently the `mailto' scheme is supported." "Toggle visibility of tool-bars in response to EVENT. With no keyboard modifiers, it toggles the visibility of the frame where the tool-bar toggle button was pressed. With some -modifiers, it changes global tool-bar visibility setting." +modifiers, it changes the global tool-bar visibility setting." (interactive "e") (let ((ae (mac-event-ae event))) (if (mac-ae-keyboard-modifiers ae) ;; Globally toggle tool-bar-mode if some modifier key is pressed. - (tool-bar-mode) + (tool-bar-mode 'toggle) (let ((frame (mac-ae-frame ae))) (set-frame-parameter frame 'tool-bar-lines (if (= (frame-parameter frame 'tool-bar-lines) 0)